From 4fce10de6939e3ff432506cd074d2bfdc2495a3a Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Wed, 10 Apr 2013 16:48:44 +0200 Subject: [PATCH] * textmodes/reftex-cite.el (reftex-parse-bibtex-entry): Don't cut off leading { and trailing } from field values. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/reftex-cite.el | 6 ------ 2 files changed, 5 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 36ef9f22cf8..24e83f8db00 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-04-10 Tassilo Horn + + * textmodes/reftex-cite.el (reftex-parse-bibtex-entry): Don't cut + off leading { and trailing } from field values. + 2013-04-10 Stefan Monnier * emacs-lisp/timer.el (timer--check): New function. diff --git a/lisp/textmodes/reftex-cite.el b/lisp/textmodes/reftex-cite.el index 079101b56ee..ca29709de2e 100644 --- a/lisp/textmodes/reftex-cite.el +++ b/lisp/textmodes/reftex-cite.el @@ -514,12 +514,6 @@ ;; remove extra whitespace (while (string-match "[\n\t\r]\\|[ \t][ \t]+" field) (setq field (replace-match " " nil t field))) - ;; remove leading garbage - (if (string-match (if raw "^[ \t]+" "^[ \t{]+") field) - (setq field (replace-match "" nil t field))) - ;; remove trailing garbage - (if (string-match (if raw "[ \t]+$" "[ \t}]+$") field) - (setq field (replace-match "" nil t field))) (push (cons key field) alist)))) alist)) -- 2.30.2